#!/usr/bin/perl -w

use strict;

while (<>) {
	if (/^msg.*(ponies|pony)/i) {
		print "send OMG!!! Ponies!!!\n";
	}
}

